home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWWRKSTN.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
4KB
|
72 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWWRKSTN **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : WORKSTAT **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWWRKSTN;
INTERFACE
USES
netware, nwvar;
TYPE
pWorkStatOBJ = ^WorkStatOBJ;
WorkStatOBJ = object (NetwareOBJ)
constructor Init;
PROCEDURE EndOfJob (Process : WORD);
FUNCTION GetConnectionID (FileServerName : ObjectNameType; VAR ConnectionID : WORD) : WORD;
FUNCTION GetDefaultConnectionID : WORD;
PROCEDURE GetFileServerName (ConnectionID : WORD; VAR FileServerName : ObjectNameType);
FUNCTION GetNetwareShellVersion (VAR MajorVersion, MinorVersion, RevisionLevel : BYTE) : WORD;
FUNCTION GetNumberOfLocalDrives : WORD;
FUNCTION GetPreferredConnectionID : WORD;
FUNCTION GetPrimaryConnectionID : WORD;
PROCEDURE GetWorkstationEnvironment (VAR OperatingSystemType, OperatingSystemVersion,
HardwareType, ShortHardwareType : String40Type);
FUNCTION IsConnectionIDInUse (ConnectionID : WORD) : WORD;
FUNCTION SetEndOfJobStatus (EndOfJobFlag : BYTE) : BYTE;
FUNCTION SetNetwareErrorMode (ErrorMode : BYTE) : BYTE;
PROCEDURE SetPreferredConnectionID (ConnectionID : WORD);
PROCEDURE SetPrimaryConnectionID (ConnectionID : WORD);
destructor Done; virtual;
PRIVATE
FUNCTION ReadPropertyValue (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
PropertyName : PropertyNameType; SegmentNumber : WORD;
VAR PropertyValue : PropertyValueType; VAR MoreSegments, PropertyFlags : BYTE) : WORD;
END;